home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Revista CD Expert 8
/
Revista CD Expert nº 08 CD1.iso
/
Utilitarios
/
Diversos
/
Coeli Stella 2000
/
_SETUP.1
/
Stella.exe
/
0
/
RCDATA
/
TCODEENTRYFORM
/
TCODEENTRYFORM.txt
Wrap
Text File
|
1999-03-13
|
14KB
|
506 lines
object CodeEntryForm: TCodeEntryForm
Left = 275
Top = 171
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Registration & Customization preliminaries'
ClientHeight = 184
ClientWidth = 490
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 125
TextHeight = 16
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 490
Height = 184
ActivePage = InstructionsTab
Align = alClient
TabOrder = 0
object ValidationTab: TTabSheet
Caption = 'Validation'
object Panel1: TPanel
Left = 0
Top = 9
Width = 480
Height = 144
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Panel3: TPanel
Left = 25
Top = 72
Width = 431
Height = 62
TabOrder = 0
object Panel2: TPanel
Left = 12
Top = 10
Width = 179
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Please enter your code:'
TabOrder = 0
end
object RegCodeEdit: TEdit
Left = 206
Top = 18
Width = 121
Height = 24
TabOrder = 1
end
object Button1: TButton
Left = 345
Top = 18
Width = 75
Height = 25
Caption = 'Done'
TabOrder = 2
OnClick = Button1Click
end
end
object Panel4: TPanel
Left = 27
Top = 10
Width = 428
Height = 53
TabOrder = 1
object Label1: TLabel
Left = 18
Top = 2
Width = 62
Height = 16
Caption = 'First name'
end
object Label2: TLabel
Left = 222
Top = 2
Width = 54
Height = 16
Caption = 'Surname'
end
object FirstNameEdit: TEdit
Left = 18
Top = 19
Width = 169
Height = 24
TabOrder = 0
OnChange = FirstNameEditChange
OnExit = FirstNameEditExit
end
object SurnameEdit: TEdit
Left = 221
Top = 19
Width = 169
Height = 24
TabOrder = 1
OnChange = SurnameEditChange
OnExit = SurnameEditExit
end
end
end
end
object LocationTab: TTabSheet
Caption = 'Location'
object ScrollBox1: TScrollBox
Left = 0
Top = 0
Width = 482
Height = 153
HorzScrollBar.Range = 200
VertScrollBar.Range = 320
Align = alClient
AutoScroll = False
TabOrder = 0
object LocationPanel: TPanel
Left = 0
Top = 0
Width = 457
Height = 320
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label7: TLabel
Left = 228
Top = 183
Width = 24
Height = 16
Caption = 'deg'
Font.Color = clTeal
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 291
Top = 183
Width = 21
Height = 16
Caption = 'min'
Font.Color = clTeal
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 350
Top = 183
Width = 22
Height = 16
Caption = 'sec'
Font.Color = clTeal
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 400
Top = 185
Width = 49
Height = 13
Caption = 'N /S E/W'
Font.Color = clTeal
Font.Height = -12
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 98
Top = 292
Width = 280
Height = 16
Caption = 'Default settings will apply if any field is left blank'
Font.Color = clRed
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object BoxLabel1: TBoxLabel
Left = 9
Top = 9
Width = 439
Height = 45
Caption =
'Please ensure that your location and geographic position are as ' +
'given on your Registration E-mail (or from your own sources if ' +
'they are accurate)'
TextBorder = 2
Color = 8454143
ParentColor = False
WordWrap = True
end
object LatLabel: TPanel
Left = 8
Top = 154
Width = 122
Height = 32
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Latitude'
TabOrder = 2
end
object LongLabel: TPanel
Left = 8
Top = 202
Width = 121
Height = 32
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Longitude'
TabOrder = 3
end
object LatDegBox: TEdit
Left = 216
Top = 154
Width = 48
Height = 24
Hint = 'Degrees'
MaxLength = 10
TabOrder = 4
end
object LatMinBox: TEdit
Left = 277
Top = 154
Width = 48
Height = 24
Hint = 'Minutes'
MaxLength = 2
TabOrder = 5
end
object LongDegBox: TEdit
Left = 216
Top = 202
Width = 48
Height = 24
Hint = 'Degrees'
MaxLength = 10
TabOrder = 8
end
object LongMinBox: TEdit
Left = 277
Top = 202
Width = 48
Height = 24
Hint = 'Minutes'
MaxLength = 2
TabOrder = 9
end
object NSBox: TComboBox
Left = 399
Top = 154
Width = 52
Height = 24
Hint = 'North or South'
ItemHeight = 16
Items.Strings = (
'N'
'S')
TabOrder = 7
end
object EWBox: TComboBox
Left = 400
Top = 202
Width = 52
Height = 24
Hint = 'East or West'
ItemHeight = 16
Items.Strings = (
'E'
'W')
TabOrder = 11
end
object Panel9: TPanel
Left = 8
Top = 250
Width = 122
Height = 32
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Time Zone'
TabOrder = 12
end
object ZoneBox: TComboBox
Left = 216
Top = 254
Width = 52
Height = 24
Hint = 'International time zone'
ItemHeight = 16
Items.Strings = (
'0'
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12')
TabOrder = 13
end
object LocName1Label: TPanel
Left = 8
Top = 63
Width = 123
Height = 32
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Locality + State'
TabOrder = 14
end
object DaylightSaving: TCheckBox
Left = 288
Top = 255
Width = 118
Height = 17
Caption = 'Daylight saving?'
State = cbChecked
TabOrder = 15
end
object LocName2Panel: TPanel
Left = 8
Top = 107
Width = 122
Height = 32
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Country'
TabOrder = 16
end
object LocusEdit: TEdit
Left = 191
Top = 66
Width = 241
Height = 24
Hint = 'Town/city & state'
TabOrder = 0
end
object PatriaEdit: TEdit
Left = 191
Top = 110
Width = 241
Height = 24
Hint = 'Country'
TabOrder = 1
end
object LatSecBox: TEdit
Left = 336
Top = 154
Width = 48
Height = 24
Hint = 'Seconds'
MaxLength = 2
TabOrder = 6
Text = '0'
end
object LongSecBox: TEdit
Left = 336
Top = 202
Width = 48
Height = 24
Hint = 'Seconds'
MaxLength = 2
TabOrder = 10
Text = '0'
end
object DMSLatConvertButton: TButton
Left = 144
Top = 154
Width = 60
Height = 25
Hint = 'Decimal degrees to deg/min/sec'
Caption = 'Convert'
TabOrder = 17
OnClick = DMSLatConvertButtonClick
end
object DMSLongConvertButton: TButton
Left = 144
Top = 202
Width = 60
Height = 25
Hint = 'Decimal degrees to deg/min/sec'
Caption = 'Convert'
TabOrder = 18
OnClick = DMSLongConvertButtonClick
end
end
end
end
object InstructionsTab: TTabSheet
Caption = 'Instructions'
object Panel5: TPanel
Left = 0
Top = 0
Width = 482
Height = 153
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object InstructionsMemo: TMemo
Left = 2
Top = 2
Width = 478
Height = 149
Align = alClient
Color = 8454143
Lines.Strings = (
'First of all, a very warm welcome into the global community of r' +
'egistered '
'Stella users! Please carry out your Stella 2000 registration & ' +
'customization in '
'the following stages (the order is not too important): '
''
'a) Click the Location tab and fill in ALL the fields with the ge' +
'ographic data '
'given in the startup preferences at the top of your registration' +
' e-mail. If you '
'like, just cut & paste these entries into the Registration & Cus' +
'tomization form '
'here. Fields required are: Locality & State, Country, Latitude d' +
'eg:min:sec, '
'Longitude deg:min:sec, time zone, daylight saving on/off. '
''
'b) Click the Validation tab and enter your first name and surnam' +
'e EXACTLY '
'as they are given in your startup preferences at the top of your' +
' registration '
'message (including any spaces and punctuation marks). To be abso' +
'lutely '
'safe, you are advised to Cut & Paste these entries directly from' +
' there into the '
'edit boxes provided here on the form. '
''
'c) Finally, enter your registration number. The number to enter ' +
'is the '
'registration code given in the title of your registration messag' +
'e. Input the '
'number carefully, and click [done] when ready. '
''
'If all goes well you will see a welcome message. Click OK, and S' +
'tella'#39's skies '
'will appear viewed from your very own home location.'
''
'The order in which you carry out this procedure is not vital. Th' +
'e most '
'important entries are your name and the correct code number, con' +
'firmed by '
'clicking [done].'
''
'In the unlikely event that you encounter problems during this on' +
'e-time initial '
'registration of your copy of Stella, please don'#39't hesitate to ge' +
't in touch. We'#39're '
'here to help.'
''
'Roger Hughes,'
'Swimming Elk Software.'
'Swimming.Elk@sci.fi')
ScrollBars = ssVertical
TabOrder = 0
end
end
end
end
end
